1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
305 PRINT"                M E N U"
310 PRINT"    --------------------------------"
315 PRINT"       1.   BEGIN MATH DICE"
320 PRINT"       2.   STUDENT INSTRUCTIONS"
325 PRINT"       3.   TEACHER INSTRUCTIONS"
330 PRINT"       4.   QUIT"
335 PRINT"    --------------------------------"
340 PRINT"       PRESS A NUMBER KEY (1-4) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,390
355 GOTO300
370 IFUZ=1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
405 UT$=" [205]ATH [196]ICE":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
415 PRINT""
420 PRINT" [200]I!  [205]Y NAME IS [194]ARNEY.":PRINT
425 PRINT" [201] WILL THROW TWO DICE, AND SHOW THEM"
430 PRINT" TO YOU.  [217]OUR JOB IS TO GIVE ME"
435 PRINT" THE TOTAL NUMBER OF DOTS ON THE TWO"
440 PRINT" DICE.  [193]FTER ENTERING THE ANSWER,"
455 PRINT" PLEASE PRESS [210][197][212][213][210][206][146] SO THAT [201] KNOW"
462 PRINT" WHEN YOU'VE ANSWERED.":GOSUB835:GOSUB850
464 PRINT" [193]NY TIME YOU NEED HELP, PRESS [200][146] AND"
468 PRINT" [210][197][212][213][210][206][146].  [201] WILL GIVE YOU TWO CHANCES"
470 PRINT" TO ANSWER THE QUESTION.  [212]HERE IS A"
472 PRINT" LITTLE SURPRISE IF YOU DO WELL, SO "
474 PRINT" TRY YOUR BEST. [199][207][207][196][160][204][213][195][203][160]!"
485 GOSUB835
490 IFUZ=1THENSYSUP%:GOTO155
495 RETURN
500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
501 UT$=" [205]ATH [196]ICE":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
505 PRINT"     PLEASE CONTACT:"
506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT"          3370 [208]HARMACY [193]VE.
508 [153]"          ATNGINCOURT, (null)NTARIO"
509 [153]"          LENANADA, (null)1(null) 2(null)4"
510 [153]"          (416) 499-4292"
511 UH[178]1:[141]835:[141]850
512 [153]"      (null)ROGRAM (null)AME: (null)ATH STR$ICE"
514 [153]"      (null)EVISED BY  : (null). VAL. (null)ULLIVAN"
515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY
516 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
517 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
518 PRINT"         8032 [195][194][205] [195]OMPUTER
519 [153]"         LENOMMODORE 64 LENOMPUTER
520 GOSUB 835:GOSUB 850
525 PRINT ""
526 PRINT"    [212]HIS PROGRAM WILL HELP YOUNGER"
530 PRINT" STUDENTS ([203]-3)  DEVELOP THEIR SKILLS"
532 PRINT" IN COUNTING AND ADDING NUMBERS."
534 PRINT" [212]HE STUDENT WILL RECEIVE TWO CHANCES"
536 PRINT" TO CORRECTLY ANSWER EACH QUESTION."
537 PRINT" [193] CORRECT ANSWER FOR EITHER ATTEMPT"
538 PRINT" IS COUNTED AS RIGHT IN THEIR SCORE."
585 GOSUB835
590 IFUZ=1THENSYSUP%:GOTO155
595 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP  WAIT
806 PRINT" [146]   [146][169]
807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
808 PRINT"[223]  [146]
809 [153]"EDUCATIONAL
810 PRINT"SOFTWARE
811 [153]"1983
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IFPEEK(US+40)<>96THEN700
920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM!":SYSUE:END
935 PRINT"[147]"UC$:IFUW=0THEN965
940 IFUF=60ORUF=108ORUF=124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":SYSUE:END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOSUB800:GOTO300
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,6:POKEUX,14
1010 RESTORE
1020 REM MATH DICE                 JULY 80 2 REM
1025 C%=0:T%=0
1030 REM COUNT & ADD DOTS ON DICE FOR            CORRECT ANSWER
1040 REM
1050 REM 8K PET
1060 REM
1070 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
1080 [143]"(null)       SAN MATEO COUNTY      (null)
1090 REM"[221]     OFFICE OF EDUCATION     [221]
1100 [143]"(null)             &               (null)
1110 REM"[221]  COMPUTER-USING EDUCATORS   [221]
1120 [143]"(null)                             (null)
1130 REM"[221]          SOFTSWAP           [221]
1140 [143]"(null)                             (null)
1150 REM"[221]333 MAIN STREET, REDWOOD CITY[221]
1160 [143]"(null)CA 94063 (415)364-5600 EX4401(null)
1170 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
1180 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
1190 REM"[221] PROGRAMS MAY BE COPIED FOR  [221]
1200 [143]"(null) EDUCATIONAL USE ONLY AND    (null)
1210 REM"[221] ARE NOT TO BE SOLD.         [221]
1220 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
1230 REM******************************
1240 REM*                            *
1250 REM*         MATH DICE          *
1260 REM*                            *
1270 REM*     KID-PROOFED BY JJ      *
1280 REM*       JULY 16, 1980        *
1290 REM*                            *
1300 REM******************************
1310 :
1320 ZZ$="                                        "
1330 PRINT"[147]";:POKEUT,UU%
1332 UT$=" MATH DICE":UG$="TEST":UP=0
1333 N=0
1335 GOSUB 850
1340 PRINT" WHAT'S YOUR NAME? ";:UL=12:US$="":GOSUB35:IN$=UR$:N$=IN$
1345 UR$=""
1350 GOSUB 850:PRINT ""
1351 PRINT" HOW MANY ROLLS WOULD"
1352 PRINT" WOULD YOU LIKE, "N$"? ";:UL=2:US$="H0123456789":GOSUB35
1355 IN$=UR$:UR$="":R%=VAL(IN$)
1360 GOSUB 850
1365 FOR X = 1 TO R%:PRINT"";
1370 N=N+1:D=INT(RND(1)*6+1)
1380 PRINT:PRINT" [206][163][163][163][163][163][205] "
1390 IF D=1 GOTO 1460
1400 IF D=2 GOTO1440
1410 IF D=3 GOTO 1440
1420 PRINT" [165][209]   [209][167] "
1430 GOTO 1470
1440 PRINT" [165][209] [160][160][160][167][160]"
1450 GOTO 1470
1460 PRINT" [165][160]    [167] "
1470 IF D=2 GOTO 1520
1480 IF D=4 GOTO 1520
1490 IF D=6 GOTO 1540
1500 PRINT" [165]  [209][160][160][167] "
1510 GOTO 1550
1520 PRINT" [165]     [167] "
1530 GOTO 1550
1540 PRINT" [165][209]   [209][167] "
1550 IF D=1 GOTO 1620
1560 IF D=2 GOTO 1600
1570 IF D=3 GOTO 1600
1580 PRINT" [165][209]   [209][167] "
1590 GOTO 1630
1600 PRINT" [165]    [209][167] "
1610 GOTO 1630
1620 PRINT" [165]     [167] "
1630 PRINT" [205][164][164][164][164][164][206] ":PRINT
1640 IF N=2 GOTO 1670
1645 PRINT"    [166]"
1650 PRINT"   [166][166][166]"
1655 PRINT"    [166]"
1660 A=D:GOTO 1370
1670 T=D+A:PRINT"       = ";
1680 UL=2:US$="0123456789H":GOSUB35:IN$=UR$:UR$="":T1%=VAL(IN$)
1690 IF T1%=T GOTO 1755
1700 PRINT"WRONG!"
1703 PRINT" COUNT THE SPOTS AND"
1705 PRINT" GIVE ANOTHER ANSWER."
1710 PRINT"       =   [157][157][157] ";
1720 UL=2:US$="1234567890H":GOSUB35:IN$=UR$:UR$="":T2%=VAL(IN$)
1730 IF T2%=T GOTO 1755
1744 PRINT"                               "
1745 PRINT"                               "
1746 PRINT"                      [145][145][145]"
1747 PRINTZZ$;" NO, THE ANSWER IS"T".":T%=T%+1
1750 GOTO 1770
1755 PRINT"                                "
1759 PRINT"                               "
1760 PRINT"                      "
1761 XX=INT(RND(0)*4+1)
1762 IF XX=1 THEN 20800
1763 IF XX=2 THEN 20810
1764 IF XX=3 THEN 20820
1765 IF XX=4 THEN 20830
1766 C%=C%+1:T%=T%+1
1770 GOSUB835:
1790 IF X=R% THEN 1810
1794 GOSUB 850
1795 PRINT" THE DICE ROLL AGAIN.....":FOR H=1 TO 700:NEXTH
1800 PRINT"[145]                         "
1810 N=0:NEXT X
1820 UH=1:GOSUB 850:UH=0
1825 PRINT"  YOU HAVE "C%" CORRECT OUT OF";T%
1830 IF (C%/T%)>.75 THEN GOSUB 1880
1840 PRINT" DO YOU WANT TO ROLL SOME MORE? ";
1845 UL=1:US$="HYN":GOSUB35:IN$=UR$:UR$="":A$=IN$:PRINT
1850 IF LEFT$(A$,1)="Y" THEN PRINT"[147]";:PRINT"";:GOTO1350
1855 PRINT"[147]";
1857 PRINT"                                  ";
1860 GOSUB 850
1865 PRINT" THANKS FOR PLAYING WITH ME,[157][157][157][157]";N$;"!"
1875 PRINT"";SPC(14);"GOODBYE!":PRINT"":GOSUB835:GOTO300
1880 PRINT"     [206][166] [166][166] [166][205]  [206][166][166][166][205]  [166][166]  [166][166]
1890 [153]"     SPC(SPC(CLOSESPC(SPC( SPC(SPC(  SPC(SPC(SPC(SPC(SPC(  SPC(SPC(CLOSECLOSESPC(SPC(
1900 PRINT"     [166][166][160][166][166][160][166][166][160][160][166][166][160][166][166][160][160][205][166][166][166][166][206]
1910 [153]"     SPC(SPC(CLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSESPC(SPC(SPC(SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(
1920 PRINT"     [166][166][160][166][166][160][166][166][160][160][166][166][160][166][166][160][160][160][160][166][166]
1930 [153]"     (null)SPC(SPC(SPC(SPC(SPC(SPC((null)  (null)SPC(CLOSESPC((null)CLOSECLOSECLOSECLOSESPC(SPC(
1940 PRINT"
1950 [153]"   (null)SPC(SPC(SPC(SPC((null)  (null)SPC(SPC(SPC((null)    (null)SPC(SPC(SPC(SPC((null)  (null)SPC(SPC(SPC((null)
1960 PRINT"   [166][166][166][166][166][166]  [166][166][166][166][166]    [166][166][166][166][166][166][160][160][166][166][166][166][166]
1970 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSECLOSECLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(
1980 PRINT"     [166][166][160][160][160][160][166][166][160][166][166][160][160][160][160][166][166][160][166][166][205][160][160][166][166][160][166][166]
1990 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSECLOSESPC(SPC(CLOSECLOSESPC(SPC(CLOSESPC(SPC(
2000 PRINT"     [166][166][160][160][160][160][166][166][160][166][166][160][160][160][160][166][166][166][166][166][166][160][160][166][166][160][166][166]
2010 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSE(null)SPC(SPC(SPC((null)    (null)SPC(SPC(SPC(SPC((null)CLOSECLOSE(null)SPC(SPC(SPC((null)
2020 PRINT:ME$=N$+"!":N%=LEN(ME$)
2030 FOR X=1 TO N%
2040 PRINTRIGHT$(ME$,X);:FORT=1TO5:NEXTT
2050 FORY=1TOX:PRINT"[157]";:NEXTY
2060 PRINT"[148]";:NEXT X
2070 REMFORY=1 TON%:PRINT"[157]";:NEXT Y
2080 FORY=3TO(40-N%)/2:PRINT"[148]";:FORT=1TO15:NEXTT:NEXTY:PRINT:GOSUB20000:RETURN
20000 REM CHARGE! ADAPTED FROM
20010 REM 'CURSOR'
20020 REM BY J. DAVID
20030 REM WHCI
20035 IF UW=0 THEN GOTO 20200
20040 P=59464
20050 POKE59467,16
20060 POKE59464,0
20070 GOSUB20100
20080 POKE59467,0:POKE59466,0:POKE59464,0
20090 RETURN
20100 REM
20110 POKE59466,15:T=3
20120 POKEP,255:FORL=1TO100:NEXT:GOSUB20190
20130 POKEP,191:FORL=1TO100:NEXT:GOSUB20190
20140 POKEP,152:FORL=1TO100:NEXT:GOSUB20190
20150 POKEP,128:FORL=1TO200:NEXT:GOSUB20190
20160 POKEP,152:FORL=1TO100:NEXT:T=0:GOSUB20190
20170 POKEP,128:FORL=1TO400:NEXT
20180 RETURN
20190 POKE59464,0:FORL=1TOT:NEXT:RETURN
20200 REM <<<BEGIN 64 CHARGE ROUTINE>>>
20205 :
20210 S=54272:FORL=STOS+24:POKEL,0:NEXT
20240 V0=17:V1=65:V2=33
20250 POKES+10,8:POKES+22,128
20260 POKES+23,244
20265 ZZ=ZZ+1:IF ZZ>1 THEN 20500
20300 FORK1=0TO8
20310 FORK2=0TO2
20320 READL(K1,K2),H(K1,K2)
20330 NEXT:NEXT
20500 POKE S+5,0:POKES+6,240
20510 POKE S+12,85:POKES+13,133
20520 POKE S+19,10:POKE S+20,197
20530 POKE S+24,31
20540 FORK1=0TO8
20550 POKES,L(K1,0):POKES+7,L(K1,1):POKES+14,L(K1,2)
20560 POKES+1,H(K1,0):POKES+8,H(K1,1):POKES+15,H(K1,2)
20570 POKES+4,V0:POKES+11,V1:POKES+18,V2
20580 FORT=1TO90:NEXT:NEXT
20590 FORT=1TO200:NEXT::POKES+24,0
20595 RETURN
20600 DATA 195, 16,143, 10, 71,  6
20605 DATA 209, 18,143, 12,233,  7
20610 DATA  31, 21,143, 12, 97,  8
20620 DATA  30, 25,195, 16,143, 10
20630 DATA  30, 25,195, 16,143, 10
20640 DATA  31, 21,143, 12,143, 10
20650 DATA  30, 25, 31, 21,195, 16
20660 DATA  30, 25, 31, 21,195, 16
20670 DATA  30, 25, 31, 21,195, 16
20800 FORGG=1TO20
20802 PRINT"                  RIGHT!!![146]              "
20803 FOR YY=1TO10:NEXTYY
20804 PRINT"                  RIGHT!!!              ":NEXT GG
20805 PRINT"                  RIGHT!!![146]            "
20809 GOTO 1766
20810 FORGG=1TO20
20812 PRINT"                   EXCELLENT!!![146]         "
20813 FOR YY=1TO10:NEXTYY
20814 PRINT"                   EXCELLENT!!!         ":NEXTGG
20815 PRINT"                   EXCELLENT!!![146]         "
20819 GOTO 1766
20820 FORGG=1TO20
20822 PRINT"                   GOOD!!![146]              "
20823 FOR YY=1TO10:NEXTYY
20824 PRINT"                   GOOD!!!              ":NEXTGG
20825 PRINT"                   GOOD!!![146]              "
20829 GOTO 1766
20830 FORGG=1TO20
20832 PRINT"                   CORRECT!!![146]           "
20833 FOR YY=1TO10:NEXTYY
20834 PRINT"                   CORRECT!!!           ":NEXTGG
20835 PRINT"                   CORRECT!!![146]           "
20839 GOTO 1766